0 REM"DISKMATE 1.11 LOADER (C64)      "
1 REM"COPYRIGHT (C)1990 J. PERREGAUX  "
2 REM"PUBLISHED BY SOFTDISK INC.      "
3 REM
4 IFLD>0THEN6
5 POKE157,0:POKE53265,11:POKE649,10:POKE648,196:PRINT"[147]":POKE648,4:GOSUB16:GOSUB9
6 IFLD=0THENLD=1:LOAD"0:DISKMATE.CHR",8,1
7 IFLD=1THENLD=2:LOAD"0:DISKMATE.SPR",8,1
8 POKE792,149:POKE793,3:LOAD"0:DISKMATE.EXE",8
9 PRINT"[147][153]":POKE53281,1:POKE53280,5:X$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":C$="[154][159][153][153][153][153][159][154][154][159][153][153][153][153][159][154]":D$="
10 [151]648,196:[153]"LOAD":[151]648,4
11 [153]"";:[129]X[178]1[164][195](C$)[171]1:[153][202](C$,X,1)X$;:[130]:[153][202](C$,X,1)[200](X$,40)"CMDSAVECLOSE
12 PRINTLEFT$(D$,7)"[208]LEASE WAIT WHILE [196]ISKMATE LOADS...":PRINTLEFT$(D$,13)"[195]OPYRIGHT ([195])1990 BY [202]ON [208]ERREGAUX
13 [153][200](D$,19)"LENOMMODORE 64 (null)ERSION 1.11
14 PRINTLEFT$(D$,25)TAB(6)"[208]UBLISHED BY [211]OFTDISK, [201]NC.
15 [151]53265,27:[142]
16 [151]53280,6:[151]53281,6:[129]X[178]0[164]127:[135]Y:[151]828[170]X,Y:[130]
17 [153]:[153]"LOAD  (null)ATN(null)(null)RIGHT$(null)CHR$:":[153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
18 PRINT"[153]  [196]ISKMATE 64 IS DESIGNED TO BE A TOOL
19 [153]"FOR ADVANCED PROGRAMMERS AND IS QUITE
20 PRINT"CAPABLE OF SCRAMBLING OR ERASING DATA
21 [153]"STORED ON A DISK. RIGHT$T IS ADVISABLE, IF
22 PRINT"YOU WISH TO EXPERIMENT, TO USE A DISK
23 [153]"OF NO VALUE.
24 PRINT"[196][207] [206][207][212] [213][211][197] [212][200][201][211] [208][210][207][199][210][193][205] [207][206] [217][207][213][210] [204][207][193][196][211][212][193][210]
25 [153]"ONSTR$RIGHT$(null)(null)(null)--(null)(null)(null) (null)RIGHT$CHR$LEFT$(null) STR$VAL(null)(null)(null)(null)(null) (null)LEFT$VAL(null)!!!":[153][163]17)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(
26 PRINT"[153]  [193]S SOON AS [196]ISKMATE FINISHES LOADING,
27 [153]"REMOVE YOUR (null)OAD(null)TAR PROGRAM DISK FROM
28 PRINT"THE DRIVE. [212]HIS WAY, THERE WILL BE NO
29 [153]"DANGER OF ACCIDENTALLY ERASING OR ELSE
30 PRINT"SERIOUSLY CRIPPLING THIS MONTH'S ISSUE
31 [153]"OF (null)OAD(null)TAR. (null)HANK YOU.
32 PRINT"  [208]RESS ([210][197][212][213][210][206])[153] TO LOAD [196]ISKMATE":POKE198,0
33 PRINT"  [208]RESS (F8)[153] TO REBOOT [204]OAD[211]TAR
34 [151]53265,27:[151]788,52:[151]789,234:[151]792,4:[151]793,128
35 [161]X$:[139]X$[178]""[167]35
36 [139]X$[178][199](13)[167][151]53265,11:[153]"LOAD":[142]
37 [139]X$[178]"RESTORE"[167]39
38 [137]35
39 [159]15,8,15:[159]2,8,2,"0:HELLO CONNECT,P,R":[132]15,X,X$,Y,Y:[160]2:[160]15:[139]X[177]20[167]35
40 [158]65418:[153]"LOADLOAD"[199](34)"HELLO CONNECT"[199](34)",8":[151]198,2:[151]631,19:[151]632,131:[162]
41 [131]169,8,133,2,160,0,169,4,162,192,132,251,133,252,132,253,134,254,169,216,162,196,132,195,133,196,132,247,134,248,76,123,3,169,196,133,2,160,0,169,192,162
42 [131]4,132,251,133,252,132,253,134,254,169,196,162,216,132,195,133,196,132,247,134,248,177,251,145,253,177,195,145,247,200,208,245,230,252,230,254,230,196,230
43 [131]248,165,252,197,2,208,231,96,162,16,134,2,198,2,165,2,240,6,32,195,255,76,153,3,162,76,236,0,128,208,7,162,7,236,1,128,240,6,32,94,166,76,28,8,76,4,128